home *** CD-ROM | disk | FTP | other *** search
/ Leisure Game Pak / Leisure Game Pak.iso / lpgame1 / 04 / source / xpalette.pas < prev   
Pascal/Delphi Source File  |  1994-08-17  |  615b  |  24 lines
  1. UNIT  XPalette;      (* a faster SetRGBPalette-routine *)
  2.  
  3. INTERFACE
  4. PROCEDURE      XSetPalette(start, n : WORD;  VAR RGB_Table );
  5. (* set 'n' entries in the colour palette starting at 'start',
  6.    RGB_Table has to be a data-struct containing n 3-byte-components
  7.              the bytes describe the R,G,B-values (ε[0..63]) to be set *)
  8.  
  9. IMPLEMENTATION
  10. USES DOS;
  11.  
  12. PROCEDURE      XSetPalette(start, n : WORD;  VAR RGB_Table );
  13. VAR   r : Registers;
  14. BEGIN
  15.   r.ax := $1012;
  16.   r.bx := start;
  17.   r.cx := n;
  18.   r.es := SEG(RGB_Table);
  19.   r.dx := OFS(RGB_Table);
  20.   INTR($10 , r);
  21. END;
  22.  
  23. END. (* XPalette *)
  24.